home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00018_scroll thumb sub.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  1.0 KB  |  34 lines
  1. property ancestor, pMember, pLineHeight
  2. global gDBPictObjList
  3.  
  4. on new me, theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, descendant
  5.   if objectp(descendant) then
  6.     PassObj = descendant
  7.   else
  8.     PassObj = me
  9.   end if
  10.   ancestor = new(script("slider thumb"), theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, PassObj)
  11.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  12.   pMember = GetMember(MyObj)
  13.   pLineHeight = the textHeight of member pMember
  14.   return me
  15. end
  16.  
  17. on performFunction me
  18.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  19.   scroll(MyObj, me.pSetting - 1)
  20.   member(pMember).scrollTop = pLineHeight * (me.pSetting - 1)
  21.   updateStage()
  22.   return me
  23. end
  24.  
  25. on disable me
  26.   me.pIsDisabled = 1
  27.   set the loc of sprite the pThumbChannel of me to point(-9999, -9999)
  28.   return me
  29. end
  30.  
  31. on buttonLoc me
  32.   return me
  33. end
  34.